home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d26
/
biomrf.arc
/
SELECT.INC
< prev
next >
Wrap
Text File
|
1988-11-09
|
683b
|
29 lines
' Subroutine CHOOSE
' This routine is called once the user has seen the biomorphs. The selection
' is done by number and this takes care of the reorganisation of the data.
SUB CHOOSE(biomorphs%(2),popn%)
local reply$,choice%,count1%,count2%
do
locate 1,1
print" "
locate 1,1
input"Please enter the number of the biomorph you want ";choice%
loop until choice% <= popn%
if choice% = 0 then
biomorphs%(1,1) = 0
else
for count1% = 1 to 16
for count2% = 1 to 8
biomorphs%(count1%,count2%) = biomorphs%(choice%,count2%)
next count2%
next count1%
end if
end sub